Private Function ShouldSerializePublishers() As Boolean
Return false
End Function
Public Delegate Sub PublishersRowChangeEventHandler(ByVal sender As Object, ByVal e As PublishersRowChangeEvent)
Public Class PublishersDataTable
Inherits DataTable
Implements System.Collections.IEnumerable
Private columnAddress As DataColumn
Private columnCity As DataColumn
Private columnComments As DataColumn
Private columnCompany_Name As DataColumn
Private columnFax As DataColumn
Private columnName As DataColumn
Private columnPubID As DataColumn
Private columnState As DataColumn
Private columnTelephone As DataColumn
Private columnZip As DataColumn
Friend Sub New()
MyBase.New("Publishers")
Me.InitClass
End Sub
<System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count As Integer
Get
Return Me.Rows.Count
End Get
End Property
Friend ReadOnly Property AddressColumn As DataColumn
Get
Return Me.columnAddress
End Get
End Property
Friend ReadOnly Property CityColumn As DataColumn
Get
Return Me.columnCity
End Get
End Property
Friend ReadOnly Property CommentsColumn As DataColumn
Get
Return Me.columnComments
End Get
End Property
Friend ReadOnly Property Company_NameColumn As DataColumn
Get
Return Me.columnCompany_Name
End Get
End Property
Friend ReadOnly Property FaxColumn As DataColumn
Get
Return Me.columnFax
End Get
End Property
Friend ReadOnly Property NameColumn As DataColumn
Get
Return Me.columnName
End Get
End Property
Friend ReadOnly Property PubIDColumn As DataColumn
Get
Return Me.columnPubID
End Get
End Property
Friend ReadOnly Property StateColumn As DataColumn
Get
Return Me.columnState
End Get
End Property
Friend ReadOnly Property TelephoneColumn As DataColumn
Get
Return Me.columnTelephone
End Get
End Property
Friend ReadOnly Property ZipColumn As DataColumn
Get
Return Me.columnZip
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As PublishersRow
Get
Return CType(Me.Rows(index),PublishersRow)
End Get
End Property
Public Event PublishersRowChanged As PublishersRowChangeEventHandler
Public Event PublishersRowChanging As PublishersRowChangeEventHandler
Public Event PublishersRowDeleted As PublishersRowChangeEventHandler
Public Event PublishersRowDeleting As PublishersRowChangeEventHandler
Public Overloads Sub AddPublishersRow(ByVal row As PublishersRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function AddPublishersRow(ByVal Address As String, ByVal City As String, ByVal Comments As String, ByVal Company_Name As String, ByVal Fax As String, ByVal Name As String, ByVal State As String, ByVal Telephone As String, ByVal Zip As String) As PublishersRow
Dim rowPublishersRow As PublishersRow = CType(Me.NewRow,PublishersRow)
rowPublishersRow.ItemArray = New Object() {Address, City, Comments, Company_Name, Fax, Name, Nothing, State, Telephone, Zip}
Me.Rows.Add(rowPublishersRow)
Return rowPublishersRow
End Function
Public Function FindByPubID(ByVal PubID As Integer) As PublishersRow